home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / System Utilities / Apple Utilities⁄Updates / ASIP5.0.2 Updater Download / Update AppleShare IP 5.0.2 / Print Server Items / AppleShare IP Print Server / AppleShare IP Print Server.rsrc / PS_-8134 < prev    next >
Text File  |  1997-09-17  |  831b  |  74 lines
  1. %%?BeginFeatureQuery: *ColorDevice
  2. /languagelevel where
  3. {
  4. pop languagelevel 2 ge
  5. }{
  6. false
  7. }ifelse
  8. {
  9. statusdict begin
  10. /processcolors where
  11. end
  12. {
  13. /processcolors get true
  14. }{
  15. false
  16. }ifelse
  17. {
  18. exec 1 eq
  19. {
  20. /OutputDevice/Category resourcestatus
  21. {
  22. pop pop
  23. /odevs 0 def
  24. /found false def
  25. (*)
  26. {
  27. /OutputDevice findresource
  28. /ProcessColorModel 2 copy known
  29. {
  30. /odevs odevs 1 add def
  31. get
  32. {
  33. /DeviceGray ne{(True)/found true def exit}if
  34. }forall
  35. found{exit}if
  36. }{
  37. pop pop
  38. }ifelse
  39. }bind
  40. 100 string/OutputDevice
  41. resourceforall
  42. odevs 0 eq{(Unknown)}{found not{(False)}if}ifelse
  43. }{
  44. (Unknown)
  45. }ifelse
  46. }{
  47. (True)
  48. }ifelse
  49. }{
  50. (False)
  51. }ifelse
  52. }{
  53. systemdict/colorimage known
  54. {
  55. statusdict begin
  56. /processcolors where
  57. {
  58. pop processcolors 1 eq
  59. {
  60. (Unknown)
  61. }{
  62. (True)
  63. }ifelse
  64. }{
  65. (False)
  66. }ifelse
  67. end
  68. }{
  69. (False)
  70. }ifelse
  71. }ifelse
  72. print(\n)print
  73. %%?EndFeatureQuery: Unknown
  74.